home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl5 / LWP / MemberMixin.pm < prev    next >
Text File  |  2008-04-07  |  846b  |  45 lines
  1. package LWP::MemberMixin;
  2.  
  3. sub _elem
  4. {
  5.     my $self = shift;
  6.     my $elem = shift;
  7.     my $old = $self->{$elem};
  8.     $self->{$elem} = shift if @_;
  9.     return $old;
  10. }
  11.  
  12. 1;
  13.  
  14. __END__
  15.  
  16. =head1 NAME
  17.  
  18. LWP::MemberMixin - Member access mixin class
  19.  
  20. =head1 SYNOPSIS
  21.  
  22.  package Foo;
  23.  require LWP::MemberMixin;
  24.  @ISA=qw(LWP::MemberMixin);
  25.  
  26. =head1 DESCRIPTION
  27.  
  28. A mixin class to get methods that provide easy access to member
  29. variables in the %$self.
  30. Ideally there should be better Perl language support for this.
  31.  
  32. There is only one method provided:
  33.  
  34. =over 4
  35.  
  36. =item _elem($elem [, $val])
  37.  
  38. Internal method to get/set the value of member variable
  39. C<$elem>. If C<$val> is present it is used as the new value
  40. for the member variable.  If it is not present the current
  41. value is not touched. In both cases the previous value of
  42. the member variable is returned.
  43.  
  44. =back
  45.